home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 16 / wp42msa.zip / WP42A.DEF < prev    next >
Text File  |  1986-12-21  |  35KB  |  919 lines

  1. ;
  2. ;                  WordPerfect 4.1 pop-up mouse menus
  3. ;
  4.  
  5. ;  Set up initial labels for mouse commands
  6.  
  7.         begin leftb,rightb,bothb,mousel,mouser,mouseu,moused,24,32
  8.  
  9. ;       -------------------- Left Button ---------------------------
  10.  
  11.  
  12. leftb:  execute others                ;Bring up function key menu
  13.  
  14.  
  15. ;       -------------------- Right button ------------------------
  16.  
  17.  
  18. bothb:  execute printmenu
  19.  
  20. ;       --------------------- Both buttons ------------------------
  21.  
  22.  
  23. rightb: execute keyaltf4              ;block
  24.  
  25. ;       -------------------- Mouse left -----------------------
  26.  
  27. mousel: execute left                  ;cursor left
  28.  
  29. ;       ------------------- Mouse right -----------------------
  30.  
  31. mouser: execute right                 ;cursor right
  32.  
  33. ;       --------------------- Mouse up -----------------------
  34.  
  35. mouseu: execute up                    ;cursor up
  36.  
  37.  
  38. moused: execute down                  ;cursor down
  39.  
  40. ;       ---------------- Function Key Selection --------------------
  41. others: popup 1,1,normal
  42. ;     12345678911234567892123456789312345678941234567895123456789612345678971234567898
  43. ;              0         0         0         0         0         0         0         0
  44. text "                  CANCEL                "
  45. text "                             F2             Home, F2"
  46. text "   ╔═════════════════╤═════════════════╤══════════════════╗"
  47. text "   ║      Shell      │      Spell      │                  ║  Ctrl + Function Key"
  48. text " F1║ SUPER/SUBSCRIPT │    <-SEARCH     │EXTENDED <-SEARCH ║ SHIFT + Function Key"
  49. text "   ║    Thesaurus    │     Replace     │ Extended Replace ║   Alt + Function Key"
  50. text "   ║_____Cancel______│_____Search->__  │ Extended Search->║   Function Key Alone"
  51. text "   ║     Screen      │       Move      ╞══════════════════╝"
  52. text " F3║     SWITCH      │    ->INDENT<-   ║F4"
  53. text "   ║  Reveal Codes   │      Block      ║"
  54. text "   ║______Help_______│____->Indent_____║"
  55. text "   ║   Text In/Out   │    Tab Align    ║"
  56. text " F5║      DATE       │     CENTER      ║F6" 
  57. text "   ║    Mark Text    │   Flush Right   ║      ╔═ Cursor Movement ═══╗"
  58. text "   ║____List Files___│______Bold_______║      ║          │          ║"
  59. text "   ║    Footnote     │      Print      ║      ║  Go To   │ Page UP  ║"
  60. text " F7║      PRINT      │   LINE FORMAT   ║F8    ║          │          ║"
  61. text "   ║   Math/Columns  │   Page Format   ║      ║__________│__________║"
  62. text "   ║______Exit_______│____Underline____║      ║          │          ║"
  63. text "   ║   Merge/Sort    │    Macro Def.   ║      ║ Del EOLn │ Page Dn  ║"
  64. text " F9║     MERGE E     │  RETRIEVE TEXT  ║F10   ║ Del EOPg │          ║"
  65. text "   ║   Merge Codes   │      Macro      ║      ║          │          ║"
  66. text "   ║     Merge R     │    Save Text    ║      ╚══════════╧══════════╝"
  67. text "   ╚═════════════════╧═════════════════╝"
  68. ;     1234567891123456789212345678931234567894123456789512345678961234567897
  69. ;              0         0         0         0         0         0         0
  70.         select 1,4,37
  71.         select 4,5,17,shellmenu         ;Escape to DOS
  72.         select 5,5,17,subsmenu          ;Superscript/Subscript
  73.         select 6,5,17,keyaltf1          ;Thesaurus
  74.         select 7,5,17,keyf1             ;Cancel
  75.         select 8,5,17,scrnmenu          ;Screen
  76.         select 9,5,17,keyshf3           ;Switch
  77.         select 10,5,17,keyaltf3         ;Reveal codes
  78.         select 11,5,17,keyf3            ;help
  79.         select 12,5,17,textmenu         ;Text In/Out
  80.         select 13,5,17,datemenu         ;Date
  81.         select 14,5,17,markmenu         ;Mark Text
  82.         select 15,5,17,keyf5            ;List Files
  83.         select 16,5,17,footnote         ;Footnote
  84.         select 17,5,17,printmenu        ;Print
  85.         select 18,5,17,mathmatch        ;Math / Columns
  86.         select 19,5,17,keyf7            ;Exit
  87.         select 20,5,17,merge            ;Merge/Sort
  88.         select 21,5,17,keyshf9          ;Merge E
  89.         select 22,5,17,mergecmnu        ;Merge codes
  90.         select 23,5,17,keyf9            ;Merge R
  91.         select 4,23,17,keyctlf2         ;Spell
  92.         select 5,23,17,keyshf2          ;<-Search
  93.         select 6,23,17,keyaltf2         ;Replace
  94.         select 7,23,17,keyf2            ;->Search
  95.         select 8,23,17,movematch        ;Move
  96.         select 9,23,17,keyshf4          ;->Indent<-
  97.         select 10,23,17,keyaltf4        ;Block
  98.         select 11,23,17,keyf4           ;->Indent
  99.         select 12,23,17,keyctlf6        ;Tab Align
  100.         select 13,23,17,keyshf6         ;Center
  101.         select 14,23,17,keyaltf6        ;Flush Right
  102.         select 15,23,17,keyf6           ;Bold
  103.         select 16,23,17,keyctlf8        ;Print
  104.         select 17,23,17,linemenu        ;Line
  105.         select 18,23,17,pagemenu        ;Page
  106.         select 19,23,17,keyf8           ;Underline
  107.         select 20,23,17,keyctlf10       ;Macro Def
  108.         select 21,23,17,keyshf10        ;Retrieve
  109.         select 22,23,17,keyaltf10       ;Macro
  110.         select 23,23,17,keyf10          ;Save
  111.         select 5,41,18,extsrchup        ;Extended <-Search
  112.         select 6,41,18,extreplace       ;Extended Replace
  113.         select 7,41,18,extsrchdwn       ;Extended Search->
  114.         select 16,49,8,goto             ;GOTO (CTRL HOME)
  115.         select 20,49,8,deleol           ;Delete to end of line
  116.         select 21,49,8,deleop           ;delete t end of page
  117.         select 16,59,9,pageup           ;scroll page up
  118.         select 20,59,9,pagedn           ;scroll page down
  119.         pend
  120. ;       ------------- SHELL - execute DOS (CTL F1) ---------------
  121. ;
  122. shellmenu: popup 25,1,bold
  123. ;     12345678911234567892123456789312345678941234567
  124. ;              0         0         0         0
  125. text " Execute DOS Shell:   CANCEL    Go to DOS"
  126.         select 1,23,6
  127.         select 1,33,9,shell
  128.         pend
  129. shell:  execute keyctlf1,key1
  130. ;
  131. ;       ---------------- MERGE CODES (ALT F9) ----------------------
  132. ;
  133. mergecmnu: popup 5,5,normal
  134. ;     12345678911234567892123456789312345678941234567
  135. ;              0         0         0         0
  136. text "   ╔═══ Merge Code Menu ══════════════════════╗"
  137. text "   ║                                          ║"
  138. text "   ║                CANCEL                    ║"
  139. text "   ║ ^C..Keyboard Input   ^P..Primary File    ║"
  140. text "   ║ ^D..Current Date     ^Q..Stop Merge      ║"
  141. text "   ║ ^E..End of Record    ^R..End of File     ║"
  142. text "   ║ ^F..Field Number     ^S..Secondary File  ║"
  143. text "   ║ ^G..Start Macro      ^T..Text to Printer ║"
  144. text "   ║ ^N..Next Record      ^U..Update Screen   ║"
  145. text "   ║ ^O..Message          ^V..Xfer Mrge Codes ║"
  146. text "   ║                                          ║"
  147. text "   ╚══════════════════════════════════════════╝"
  148.         select 3,6,40
  149.         select 4,6,18,mrgctlc
  150.         select 5,6,18,mrgctld
  151.         select 6,6,18,mrgctle
  152.         select 7,6,18,mrgctlf
  153.         select 8,6,18,mrgctlg
  154.         select 9,6,18,mrgctln
  155.         select 10,6,18,mrgctlo
  156.         select 4,27,19,mrgctlp
  157.         select 5,27,19,mrgctlq
  158.         select 6,27,19,mrgctlr
  159.         select 7,27,19,mrgctls
  160.         select 8,27,19,mrgctlt
  161.         select 9,27,19,mrgctlu
  162.         select 10,27,19,mrgctlv
  163.         pend
  164. mrgctlc: execute keyaltf9,keyc
  165. mrgctld: execute keyaltf9,keyd
  166. mrgctle: execute keyaltf9,keye
  167. mrgctlf: execute keyaltf9,keyf
  168. mrgctlg: execute keyaltf9,keyg
  169. mrgctln: execute keyaltf9,keyn
  170. mrgctlo: execute keyaltf9,keyo
  171. mrgctlp: execute keyaltf9,keyp
  172. mrgctlq: execute keyaltf9,keyq
  173. mrgctlr: execute keyaltf9,keyr
  174. mrgctls: execute keyaltf9,keys
  175. mrgctlt: execute keyaltf9,keyt
  176. mrgctlu: execute keyaltf9,keyu
  177. mrgctlv: execute keyaltf9,keyv
  178. ;
  179. ;       ------------- Print Menu (SHIFT F7) ----------------------
  180. ;
  181. printmenu: popup 5,5,normal
  182. ;     12345678911234567892123456789312345678941234567
  183. ;              0         0         0         0
  184. text "   ╔═══ Print Menu ═══════════════════════════╗"
  185. text "   ║                                          ║"
  186. text "   ║                 CANCEL                   ║"
  187. text "   ║                                          ║"
  188. text "   ║ Full Text            Printer Control     ║"
  189. text "   ║ Page                 Type Thru           ║"
  190. text "   ║ Change Options       Preview             ║"
  191. text "   ║                                          ║"
  192. text "   ╚══════════════════════════════════════════╝"
  193.         select 3,6,40
  194.         select 5,6,18,prtfulltext
  195.         select 6,6,18,prtpage
  196.         select 7,6,18,prtchngopts
  197.         select 5,27,19,prtcontrol
  198.         select 6,27,19,prttypethru
  199.         select 7,27,19,prtpreview
  200.         pend
  201. prtfulltext:  execute keyshf7,key1
  202. prtpage:      execute keyshf7,key2
  203. prtchngopts:  execute keyshf7,key3
  204. prtcontrol:   execute keyshf7,key4
  205. prttypethru:  execute keyshf7,key5
  206. prtpreview: popup 25,1,bold
  207. ;             123456789112345678921234567893123456789
  208. ;                      0         0         0         
  209.         text "Print preview: CANCEL   DOCUMENT   PAGE"
  210.         select 1,16,6
  211.         select 1,25,8,prtprevdoc
  212.         select 1,36,4,prtprevpage
  213.         pend
  214. prtprevdoc:  execute keyshf7,key6,key1
  215. prtprevpage: execute keyshf7,key6,key2
  216. ;
  217. ;       ---------  Document Conversion & Locking (CTL F5) --------
  218. ;
  219. ;     1234567891123456789212345678931234567894123456789512345678961
  220. ;              0         0         0         0         0         0
  221. textmenu:  popup 5,5,normal
  222. text "   ╔═══ Document Conversion and Locking ═════════════════════╗"
  223. text "   ║                                                         ║"
  224. text "   ║                        CANCEL                           ║"
  225. text "   ║                                                         ║"
  226. text "   ║ Save current document as DOS text file                  ║"
  227. text "   ║ Retrieve a DOS text file (CR/LF becomes [HRt]           ║"
  228. text "   ║ Retrieve a DOS text file (CR/LF in H-Zone becomes [SRt] ║"
  229. text "   ║ Lock and save current document                          ║"
  230. text "   ║ Unlock and retrieve a locked document                   ║"
  231. text "   ║ Save in a generic word processor format                 ║"
  232. text "   ║ Save in WordPerfect 4.1 format                          ║"
  233. text "   ║ Create/Edit Summary                                     ║"
  234. text "   ║ Create Comment                                          ║"
  235. text "   ║ Edit Comment                                            ║"
  236. text "   ║ Display Summary and Comments                            ║"
  237. text "   ║                                                         ║"
  238. text "   ╚═════════════════════════════════════════════════════════╝"
  239.         select 3,6,55
  240.         select 5,6,55,txtsave
  241.         select 6,6,55,txtreadhrt
  242.         select 7,6,55,txtreadsrt
  243.         select 8,6,55,txtlock
  244.         select 9,6,55,txtunlock
  245.         select 10,6,55,genericsave
  246.         select 11,6,55,wp41save
  247.         select 12,6,55,creatsummary
  248.         select 13,6,55,creatcomment
  249.         select 14,6,55,editcomment
  250.         select 15,6,55,dispsumcmnt
  251.         pend
  252. txtsave:      execute keyctlf5,key1
  253. txtreadhrt:   execute keyctlf5,key2
  254. txtreadsrt:   execute keyctlf5,key3
  255. txtlock:      execute keyctlf5,key4
  256. txtunlock:    execute keyctlf5,key5
  257. genericsave:  execute keyctlf5,key6
  258. wp41save:     execute keyctlf5,key7
  259. creatsummary: execute keyctlf5,keya
  260. creatcomment: execute keyctlf5,keyb
  261. editcomment:  execute keyctlf5,keyc
  262. dispsumcmnt:  execute keyctlf5,keyd
  263. ;
  264. ;       ---------  Super/Subscript (SHIFT F1) --------------------
  265. ;
  266. ;     12345678911234567892123456789312345678941234567
  267. ;              0         0         0         0
  268. subsmenu:  popup 5,5,normal
  269. text "   ╔═══ Super/Subscript ══════════════════════╗"
  270. text "   ║                                          ║"
  271. text "   ║                 CANCEL                   ║"
  272. text "   ║                                          ║"
  273. text "   ║ Superscript          Advance up          ║"
  274. text "   ║ Subscript            Advance down        ║"
  275. text "   ║ Overstrike           Advance line        ║"
  276. text "   ║                                          ║"
  277. text "   ╚══════════════════════════════════════════╝"
  278.         select 3,6,40
  279.         select 5,6,18,subsuper
  280.         select 6,6,18,subsubsc
  281.         select 7,6,18,subover
  282.         select 5,27,19,subadvup
  283.         select 6,27,19,subadvdn
  284.         select 6,27,19,subadvln
  285.         pend
  286. subsuper:   execute keyshf1,key1
  287. subsubsc:   execute keyshf1,key2
  288. subover:    execute keyshf1,key3
  289. subadvup:   execute keyshf1,key4
  290. subadvdn:   execute keyshf1,key5
  291. subadvln:   execute keyshf1,key6
  292. ;
  293. ;       ---------  Line Formatting (SHIFT F6) --------------------
  294. ;
  295. ;     12345678911234567892123456789312345678941234567
  296. ;              0         0         0         0
  297. linemenu:  popup 5,5,normal
  298. text "   ╔═══ Line Format Options ══════════════════╗"
  299. text "   ║                                          ║"
  300. text "   ║                 CANCEL                   ║"
  301. text "   ║                                          ║"
  302. text "   ║ Tabs                 Hyphenation         ║"
  303. text "   ║ Margins              Set align character ║"
  304. text "   ║ Spacing                                  ║"
  305. text "   ║                                          ║"
  306. text "   ╚══════════════════════════════════════════╝"
  307.         select 3,6,40
  308.         select 5,6,18,linetabs
  309.         select 6,6,18,linemargins
  310.         select 7,6,18,linespace
  311.         select 5,27,19,linehyphn
  312.         select 6,27,19,linealign
  313.         pend
  314. linetabs:    execute keyshf8,key1
  315. linemargins: execute keyshf8,key3
  316. linespace:   execute keyshf8,key4
  317. linehyphn:   execute keyshf8,key5
  318. linealign:   execute keyshf8,key6
  319. ;
  320.  
  321. ;       ---------  Page Formatting (ALT F6) --------------------
  322. ;
  323. ;     12345678911234567892123456789312345
  324. ;              0         0         0         0
  325. pagemenu:  popup 5,5,normal
  326. text "   ╔═══ Page Format Options ═════╗"
  327. text "   ║                             ║"
  328. text "   ║ CANCEL                      ║"
  329. text "   ║                             ║"
  330. text "   ║ Page Number Position        ║"
  331. text "   ║ New Page Number             ║"
  332. text "   ║ Center Top to Bottom        ║"
  333. text "   ║ Page Length                 ║"
  334. text "   ║ Top Margin                  ║"
  335. text "   ║ Headers or Footers          ║"
  336. text "   ║ Page Number Column Position ║"
  337. text "   ║ Suppress for Current Page   ║"
  338. text "   ║ Conditional End of Page     ║"
  339. text "   ║ Widow/Orphan                ║"
  340. text "   ║                             ║"
  341. text "   ╚═════════════════════════════╝"
  342.         select 3,6,27
  343.         select 5,6,27,pagepos
  344.         select 6,6,27,pagenum
  345.         select 7,6,27,pagecenter
  346.         select 8,6,27,pagelen
  347.         select 9,6,27,pagetopmrg
  348.         select 10,6,27,pagehdrs
  349.         select 11,6,27,pagenumcp
  350.         select 12,6,27,pagesuppr
  351.         select 13,6,27,pageeop
  352.         select 14,6,27,pagewidow
  353.         pend
  354. pagenum:    execute keyaltf8,key2
  355. pagecenter: execute keyaltf8,key3
  356. pagetopmrg: execute keyaltf8,key5
  357. pagehdrs:   execute keyaltf8,key6
  358. pagenumcp:  execute keyaltf8,key7
  359. pagesuppr:  execute keyaltf8,key8
  360. pageeop:    execute keyaltf8,key9
  361. pagewidow:  execute keyaltf8,keya
  362. ;
  363. ;       ---------  Option 1 of Page formatting  --------------------
  364. ;
  365. ;     1234567891123456789212345678931234567
  366. ;              0         0         0         0
  367. pagepos:    popup 5,5,normal
  368. text "   ╔═══ Page Number Positioning ═══╗"
  369. text "   ║                               ║"
  370. text "   ║ CANCEL                        ║"
  371. text "   ║                               ║"
  372. text "   ║ No Page Numbers               ║"
  373. text "   ║ Top left of every page        ║"
  374. text "   ║ Top center of every page      ║"
  375. text "   ║ Top right of every page       ║"
  376. text "   ║ Top alternating left & right  ║"
  377. text "   ║ Bot. left of every page       ║"
  378. text "   ║ Bot. center of every page     ║"
  379. text "   ║ Bot. right of every page      ║"
  380. text "   ║ Bot. alternating left & right ║"
  381. text "   ║                               ║"
  382. text "   ╚═══════════════════════════════╝"
  383.         select 3,6,29
  384.         select 5,6,29,pgnumnone
  385.         select 6,6,29,pgnumtl
  386.         select 7,6,29,pgnumtc
  387.         select 8,6,29,pgnumtr
  388.         select 9,6,29,pgnumtlr
  389.         select 10,6,29,pgnumbl
  390.         select 11,6,29,pgnumbc
  391.         select 12,6,29,pgnumbr
  392.         select 13,6,29,pgnumblr
  393.         pend
  394. pgnumnone:   execute keyaltf8,key1,key0,key0
  395. pgnumtl:     execute keyaltf8,key1,key1,key0
  396. pgnumtc:     execute keyaltf8,key1,key2,key0
  397. pgnumtr:     execute keyaltf8,key1,key3,key0
  398. pgnumtlr:    execute keyaltf8,key1,key4,key0
  399. pgnumbl:     execute keyaltf8,key1,key5,key0
  400. pgnumbc:     execute keyaltf8,key1,key6,key0
  401. pgnumbr:     execute keyaltf8,key1,key7,key0
  402. pgnumblr:    execute keyaltf8,key1,key8,key0
  403. ;
  404. ;       ---------  Option 4 of Page formatting  --------------------
  405. ;
  406. ;     123456789112345678921234567893123456
  407. ;              0         0         0         0
  408. pagelen:    popup 5,5,normal
  409. text "   ╔═══ Page Length ═══════════════╗"
  410. text "   ║                               ║"
  411. text "   ║ CANCEL                        ║"
  412. text "   ║                               ║"
  413. text "   ║ Letter: 66 lines @ 54 / page  ║"
  414. text "   ║ Legal:  84 lines @ 72 / page  ║"
  415. text "   ║ Other                         ║"
  416. text "   ║  (Other drops out of mouse    ║"
  417. text "   ║    data entry mode)           ║"
  418. text "   ╚═══════════════════════════════╝"
  419.         select 3,6,29
  420.         select 5,6,29,pglenlet
  421.         select 6,6,29,pglenleg
  422.         select 7,6,29,pglenoth
  423.         pend
  424. pglenlet:    execute keyaltf8,key4,key1,key0
  425. pglenleg:    execute keyaltf8,key4,key2,key0
  426. pglenoth:    execute keyaltf8,key4,key3
  427. ;
  428. ;       ---------  Move Menus  (CTL F4)  -------------
  429. ;
  430. ;  Check for "Block on" in lower left of screen.  If Typeover mode is
  431. ;  on, the block literal will be shifted to column 11.
  432. ;
  433. movematch:   match 25,1,,"Block on",moveblk,movematch2
  434. movematch2:  match 25,11,,"Block on",moveblk,movetxt
  435. ;
  436. ;       ---------  Move Blocks (when "Block on" is in lower left -----
  437. ;
  438. moveblk:  popup 5,5,normal
  439. ;     12345678911234567892123456789312345678941234567
  440. ;              0         0         0         0
  441. text "   ╔═══ Move Block Options ═══════════════════╗"
  442. text "   ║                                          ║"
  443. text "   ║                 CANCEL                   ║"
  444. text "   ║                                          ║"
  445. text "   ║ Cut Block            Cut/Copy Column     ║"
  446. text "   ║ Copy Block           Cut/Copy Rectangle  ║"
  447. text "   ║ Append                                   ║"
  448. text "   ║                                          ║"
  449. text "   ╚══════════════════════════════════════════╝"
  450.         select 3,6,40
  451.         select 5,6,18,blkcut
  452.         select 6,6,18,blkcopy
  453.         select 7,6,18,blkapnd
  454.         select 5,27,19,blkcccol
  455.         select 6,27,19,blkccrect
  456.         pend
  457. blkcut:    execute keyctlf4,key1
  458. blkcopy:   execute keyctlf4,key2
  459. blkapnd:   execute keyctlf4,key3
  460. blkcccol: popup 25,1,bold
  461. ;             12345678911234567892123456789312345678941234567895
  462. ;                      0         0         0         0         0
  463.         text "Block cut/copy column: CANCEL   CUT   COPY  DELETE"
  464.         select 1,24,6
  465.         select 1,33,3,blkcc1
  466.         select 1,39,4,blkcc2
  467.         select 1,45,6,blkcc3
  468.         pend
  469. blkcc1:  execute keyctlf4,key4,key1
  470. blkcc2:  execute keyctlf4,key4,key2
  471. blkcc3:  execute keyctlf4,key4,key3
  472. blkccrect: popup 25,1,bold
  473. ;             12345678911234567892123456789312345678941234567895123
  474. ;                      0         0         0         0         0
  475.         text "Block cut/copy rectangle: CANCEL   CUT   COPY  DELETE"
  476.         select 1,27,6
  477.         select 1,36,3,blkcc4
  478.         select 1,42,4,blkcc5
  479.         select 1,48,6,blkcc6
  480.         pend
  481. blkcc4:  execute keyctlf4,key5,key1
  482. blkcc5:  execute keyctlf4,key5,key2
  483. blkcc6:  execute keyctlf4,key5,key3
  484. ;
  485. ;  ---------  Move Text (when "Block on" is not in lower left -----
  486. ;
  487. movetxt:  popup 5,5,normal
  488. ;     12345678911234567892123456789312345678
  489. ;              0         0         0
  490. text "   ╔═══ Move Options ═══════════════╗"
  491. text "   ║                                ║"
  492. text "   ║             CANCEL             ║"
  493. text "   ║                                ║"
  494. text "   ║    MOVE            RETRIEVE    ║"
  495. text "   ║ ----------       -----------   ║"
  496. text "   ║ Sentence         Column        ║"
  497. text "   ║ Paragraph        Text          ║"
  498. text "   ║ Page             Rectangle     ║"
  499. text "   ║                                ║"
  500. text "   ╚════════════════════════════════╝"
  501.         select 3,6,29
  502.         select 7,6,12,mvtxtsent
  503.         select 8,6,12,mvtxtpara
  504.         select 9,6,12,mvtxtpage
  505.         select 7,23,12,mvtxtrcol
  506.         select 8,23,12,mvtxtrtext
  507.         select 9,23,12,mvtxtrrect
  508.         pend
  509. mvtxtrcol:  execute keyctlf4,key4
  510. mvtxtrtext: execute keyctlf4,key5
  511. mvtxtrrect: execute keyctlf4,key6
  512. ;
  513. mvtxtsent: popup 25,1,bold
  514. ;             12345678911234567892123456789312345678941234567
  515. ;                      0         0         0         0       
  516.         text "Move text sentence: CANCEL   CUT   COPY  DELETE"
  517.         select 1,21,6
  518.         select 1,30,3,movsent1
  519.         select 1,36,4,movsent2
  520.         select 1,42,6,movsent3
  521.         pend
  522. movsent1: execute keyctlf4,key1,key1
  523. movsent2: execute keyctlf4,key1,key2
  524. movsent3: execute keyctlf4,key1,key3
  525. ;
  526. mvtxtpara: popup 25,1,bold
  527. ;             123456789112345678921234567893123456789412345678
  528. ;                      0         0         0         0       
  529.         text "Move text paragraph: CANCEL   CUT   COPY  DELETE"
  530.         select 1,22,6
  531.         select 1,31,3,movpara1
  532.         select 1,37,4,movpara2
  533.         select 1,43,6,movpara3
  534.         pend
  535. movpara1: execute keyctlf4,key2,key1
  536. movpara2: execute keyctlf4,key2,key2
  537. movpara3: execute keyctlf4,key2,key3
  538. ;
  539. mvtxtpage: popup 25,1,bold
  540. ;             1234567891123456789212345678931234567894123
  541. ;                      0         0         0         0       
  542.         text "Move text page: CANCEL   CUT   COPY  DELETE"
  543.         select 1,17,6
  544.         select 1,26,3,movpage1
  545.         select 1,32,4,movpage2
  546.         select 1,38,6,movpage3
  547.         pend
  548. movpage1: execute keyctlf4,key3,key1
  549. movpage2: execute keyctlf4,key3,key2
  550. movpage3: execute keyctlf4,key3,key3
  551. ;
  552. ;       ------------- Screen Menu (CTL F2) ---------------------
  553. ;
  554. scrnmenu: popup 5,5,normal
  555. ;     12345678911234567892123456789312345678941234567
  556. ;              0         0         0         0
  557. text "   ╔═══ Screen  Menu ═════════════════════════╗"
  558. text "   ║                                          ║"
  559. text "   ║                 CANCEL                   ║"
  560. text "   ║                                          ║"
  561. text "   ║ Rewrite              CTL/ALT Keys        ║"
  562. text "   ║ Window               Colors              ║"
  563. text "   ║ Line Draw            Auto Rewrite        ║"
  564. text "   ║                                          ║"
  565. text "   ╚══════════════════════════════════════════╝"
  566.         select 3,6,40
  567.         select 5,6,18,scrnrewrite
  568.         select 6,6,18,scrnwind
  569.         select 7,6,18,scrnline
  570.         select 5,27,19,scrnctlalt
  571.         select 6,27,19,scrncolors
  572.         select 7,27,19,scrnautorw
  573.         pend
  574. scrnrewrite: execute keyctlf3,key0
  575. scrnwind:    execute keyctlf3,key1
  576. scrnline:    execute keyctlf3,key2
  577. scrnctlalt:  execute keyctlf3,key3
  578. scrncolors:  execute keyctlf3,key4
  579. scrnautorw:  execute keyctlf3,key5
  580. ;
  581. ;       ------------- Footnotes (CTL F7) -----------------------
  582. ;
  583. footnote: popup 5,5,normal
  584. ;     12345678911234567892123456789312345678941234567
  585. ;              0         0         0         0
  586. text "   ╔═══ Footnote ═════════════════════════════╗"
  587. text "   ║                                          ║"
  588. text "   ║                 CANCEL                   ║"
  589. text "   ║                                          ║"
  590. text "   ║ Create               Options             ║"
  591. text "   ║ Edit                 Create Endnote      ║"
  592. text "   ║ New number           Edit Endnote        ║"
  593. text "   ║                                          ║"
  594. text "   ╚══════════════════════════════════════════╝"
  595.         select 3,6,40
  596.         select 5,6,18,footcreate
  597.         select 6,6,18,footedit
  598.         select 7,6,18,footnew
  599.         select 5,27,19,footoption
  600.         select 6,27,19,footend
  601.         select 7,27,19,footendedit
  602.         pend
  603. footcreate:   execute keyctlf7,key1
  604. footedit:     execute keyctlf7,key2
  605. footnew:      execute keyctlf7,key3
  606. footoption:   execute keyctlf7,key4
  607. footend:      execute keyctlf7,key5
  608. footendedit:  execute keyctlf7,key6
  609. ;
  610. ;       ------------- Merge Menu (CTL F9) ----------------------
  611. ;
  612. merge: popup 5,5,normal
  613. ;     1234567891123456789212345678
  614. ;              0         0
  615. text "   ╔═ Merge/Sort Options ═╗"
  616. text "   ║                      ║"
  617. text "   ║ CANCEL               ║"
  618. text "   ║                      ║"
  619. text "   ║ Merge                ║"
  620. text "   ║ Sort                 ║"
  621. text "   ║ Sorting Sequences    ║"
  622. text "   ║                      ║"
  623. text "   ╚══════════════════════╝"
  624.         select 3,6,18
  625.         select 5,6,18,mrgmerge
  626.         select 6,6,18,mrgsort
  627.         select 7,6,18,mrgseq
  628.         pend
  629. mrgmerge:     execute keyctlf9,key1
  630. mrgsort:      execute keyctlf9,key2
  631. mrgseq:       execute keyctlf9,key3
  632. ;
  633. ;       ------------- Merge Menu (CTL F9) ----------------------
  634. ;
  635. datemenu: popup 25,1,normal
  636. ;     1234567891123456789212345678931234567894123456789512345678961234567897123456
  637. ;              0         0         0         0         0         0
  638. text "Dates: CANCEL    Ins. Date as Text    Ins. Date Function    Chg. Date Format"
  639.         select 1,8,6
  640.         select 1,18,17,dattext
  641.         select 1,39,18,datfunc
  642.         select 1,61,16,datform
  643.         pend
  644. dattext:     execute keyshf5,key1
  645. datform:     execute keyshf5,key2
  646. datfunc:     execute keyshf5,key3
  647. ;
  648. ;       ------------- Math/Columns (ALT F7) --------------------
  649. ;
  650. ;   Check for "Math" in lower left of screen.  If Typeover mode is on,
  651. ;   the "Math" literal will be shifted to column 11.
  652. ;
  653. mathmatch:  match 25,1,,"Math",mathonmenu,mathmatch1
  654. mathmatch1: match 25,11,,"Math",mathonmenu,mathoffmenu
  655. ;
  656. ;       ------------- Math/Columns (ALT F7) (MATH OFF)----------
  657. ;
  658. mathoffmenu: popup 5,5,normal
  659. ;     1234567891123456789212345678
  660. ;              0         0
  661. text "   ╔═ Math/Columns ════╗"
  662. text "   ║                   ║"
  663. text "   ║ CANCEL            ║"
  664. text "   ║                   ║"
  665. text "   ║ Math On           ║"
  666. text "   ║ Math Definition   ║"
  667. text "   ║ Column On/Off     ║"
  668. text "   ║ Column Definition ║"
  669. text "   ║ Column Display    ║"
  670. text "   ║                   ║"
  671. text "   ╚═══════════════════╝"
  672.         select 3,6,17
  673.         select 5,6,17,mathon
  674.         select 6,6,17,mathdef
  675.         select 7,6,17,colmon1
  676.         select 8,6,17,colmdef1
  677.         select 9,6,17,colmdsp1
  678.         pend
  679. mathon:      execute keyaltf7,key1
  680. mathdef:     execute keyaltf7,key2
  681. colmon1:     execute keyaltf7,key3
  682. colmdef1:    execute keyaltf7,key4
  683. colmdsp1:    execute keyaltf7,key5
  684. ;
  685. ;       ------------- Math/Columns (ALT F7) (MATH ON)-----------
  686. ;
  687. mathonmenu: popup 5,5,normal
  688. ;     1234567891123456789212345678
  689. ;              0         0
  690. text "   ╔═ Math/Columns ════╗"
  691. text "   ║                   ║"
  692. text "   ║ CANCEL            ║"
  693. text "   ║                   ║"
  694. text "   ║ Math Off          ║"
  695. text "   ║ Calculate         ║"
  696. text "   ║ Column On/Off     ║"
  697. text "   ║ Column Definition ║"
  698. text "   ║ Column Display    ║"
  699. text "   ║                   ║"
  700. text "   ╚═══════════════════╝"
  701.         select 3,6,17
  702.         select 5,6,17,mathoff
  703.         select 6,6,17,mathcalc
  704.         select 7,6,17,colmon2
  705.         select 8,6,17,colmdef2
  706.         select 9,6,17,colmdsp2
  707.         pend
  708. mathoff:     execute keyaltf7,key1
  709. mathcalc:    execute keyaltf7,key2
  710. colmon2:     execute keyaltf7,key3
  711. colmdef2:    execute keyaltf7,key4
  712. colmdsp2:    execute keyaltf7,key5
  713. ;
  714. ;
  715. ;       ------------- Mark Text (ALT F5) -----------------------
  716. ;
  717. markmenu: popup 5,5,normal
  718. ;     12345678911234567892123456789312345678941234567
  719. ;              0         0         0         0
  720. text "   ╔═══ Mark Text Options ════════════════════╗"
  721. text "   ║                                          ║"
  722. text "   ║                 CANCEL                   ║"
  723. text "   ║                                          ║"
  724. text "   ║ Outline              Short form          ║"
  725. text "   ║ Paragraph number     Index               ║"
  726. text "   ║ Redline              Other Options       ║"
  727. text "   ║                                          ║"
  728. text "   ╚══════════════════════════════════════════╝"
  729.         select 3,6,40
  730.         select 5,6,18,markoutline
  731.         select 6,6,18,markpara
  732.         select 7,6,18,markredline
  733.         select 5,27,19,markshortfrm
  734.         select 6,27,19,markindex
  735.         select 7,27,19,markothomenu
  736.         pend
  737. markoutline:  execute keyaltf5,key1
  738. markpara:     execute keyaltf5,key2
  739. markredline:  execute keyaltf5,key3
  740. markshortfrm:   execute keyaltf5,key4
  741. markindex:    execute keyaltf5,key5
  742. ;
  743. ;       ---------  Mark Text Other Options (ALT F5, 5) -----------
  744. ;
  745. ;     1234567891123456789212345678931234567894123456789512345678961
  746. ;              0         0         0         0         0         0
  747. markothomenu:  popup 5,5,normal
  748. text "   ╔═══ Mark Text Other Options ═════════════════════════════╗"
  749. text "   ║                                                         ║"
  750. text "   ║                        CANCEL                           ║"
  751. text "   ║                                                         ║"
  752. text "   ║ Define paragraph/outline numbering                      ║"
  753. text "   ║ Define table of contents                                ║"
  754. text "   ║ Define list                                             ║"
  755. text "   ║ Define table of authorities                             ║"
  756. text "   ║ Define index                                            ║"
  757. text "   ║ Remove all redline markings and strikeout text          ║"
  758. text "   ║ Edit table of authorities full form                     ║"
  759. text "   ║ Generate tables and index                               ║"
  760. text "   ║                                                         ║"
  761. text "   ╚═════════════════════════════════════════════════════════╝"
  762.         select 3,6,55
  763.         select 5,6,55,markothdnumb
  764.         select 6,6,55,markothdtoc
  765.         select 7,6,55,markothdlist
  766.         select 8,6,55,markothdtoa
  767.         select 9,6,55,markothdndx
  768.         select 10,6,55,markothrmov
  769.         select 11,6,55,markothedit
  770.         select 12,6,55,markothgen
  771.         pend
  772. markothdnumb: execute keyaltf5,key6,key1
  773. markothdtoc:  execute keyaltf5,key6,key2
  774. markothdlist: execute keyaltf5,key6,key3
  775. markothdtoa:  execute keyaltf5,key6,key4
  776. markothdndx:  execute keyaltf5,key6,key5
  777. markothrmov:  execute keyaltf5,key6,key6
  778. markothedit:  execute keyaltf5,key6,key7
  779. markothgen:   execute keyaltf5,key6,keya
  780. ;
  781. ;       ------------- Extended searches and replace ------------
  782. ;
  783. extsrchup:  execute keyhome,keyshf2     ;Extended <-Search
  784. extreplace: execute keyhome,keyaltf2    ;Extended Replace
  785. extsrchdwn: execute keyhome,keyf2       ;Extended Search->
  786. ;
  787. ;       ------------- Cursor movement keys  --------------------
  788. ;
  789. goto:   execute keyctlhome
  790. deleop: execute keyctlpgdn               ;delete to end of page
  791. pageup: execute keypgup                  ;scroll page up
  792. pagedn: execute keypgdn                  ;scroll page down
  793. deleol: popup 25,1,bold
  794. ;             123456789112345678921234567893123456789412345678951234
  795. ;                      0         0         0         0         0
  796.         text "Verify delete of text to end of line: CANCEL   DELETE"
  797.         select 1,39,6
  798.         select 1,48,6,keyctlend
  799.         pend
  800. ;
  801. ;
  802. ;       ------------- Keystroke definintions -------------------
  803. ;
  804. key0:          type "0"
  805. key1:          type "1"
  806. key2:          type "2"
  807. key3:          type "3"
  808. key4:          type "4"
  809. key5:          type "5"
  810. key6:          type "6"
  811. key7:          type "7"
  812. key8:          type "8"
  813. key9:          type "9"
  814. keya:          type "A"
  815. keyb:          type "B"
  816. keyc:          type "C"
  817. keyd:          type "D"
  818. keye:          type "E"
  819. keyf:          type "F"
  820. keyg:          type "G"
  821. keyh:          type "H"
  822. keyi:          type "I"
  823. keyj:          type "J"
  824. keyk:          type "K"
  825. keyl:          type "L"
  826. keym:          type "M"
  827. keyn:          type "N"
  828. keyo:          type "O"
  829. keyp:          type "P"
  830. keyq:          type "Q"
  831. keyr:          type "R"
  832. keys:          type "S"
  833. keyt:          type "T"
  834. keyu:          type "U"
  835. keyv:          type "V"
  836. keyw:          type "W"
  837. keyx:          type "X"
  838. keyy:          type "Y"
  839. keyz:          type "Z"
  840. keyctla:       type 1
  841. keyctlb:       type 2
  842. keyctlc:       type 3
  843. keyctld:       type 4
  844. keyctle:       type 5
  845. keyctlf:       type 6
  846. keyctlg:       type 7
  847. keyctlh:       type 8
  848. keyctli:       type 9
  849. keyctlj:       type 10
  850. keyctlk:       type 11
  851. keyctll:       type 12
  852. keyctlm:       type 13
  853. keyctln:       type 14
  854. keyctlo:       type 15
  855. keyctlp:       type 16
  856. keyctlq:       type 17
  857. keyctlr:       type 18
  858. keyctls:       type 19
  859. keyctlt:       type 20
  860. keyctlu:       type 21
  861. keyctlv:       type 22
  862. keyctlw:       type 23
  863. keyctlx:       type 24
  864. keyctly:       type 25
  865. keyctlz:       type 26
  866. keyhome:       type 0,71
  867. keyctlhome:    type 0,119
  868. keyctlend:     type 0,117
  869. keyctlpgdn:    type 0,118
  870. nothing:       nothing
  871. left:          type 0,75
  872. right:         type 0,77
  873. up:            type 0,72
  874. down:          type 0,80
  875. keypgup:       type 0,73
  876. keypgdn:       type 0,81
  877. keyf1:         type 0,59
  878. keyf2:         type 0,60
  879. keyf3:         type 0,61
  880. keyf4:         type 0,62
  881. keyf5:         type 0,63
  882. keyf6:         type 0,64
  883. keyf7:         type 0,65
  884. keyf8:         type 0,66
  885. keyf9:         type 0,67
  886. keyf10:        type 0,68
  887. keyaltf1:      type 0,104
  888. keyaltf2:      type 0,105
  889. keyaltf3:      type 0,106
  890. keyaltf4:      type 0,107
  891. keyaltf5:      type 0,108
  892. keyaltf6:      type 0,109
  893. keyaltf7:      type 0,110
  894. keyaltf8:      type 0,111
  895. keyaltf9:      type 0,112
  896. keyaltf10:     type 0,113
  897. keyshf1:       type 0,84
  898. keyshf2:       type 0,85
  899. keyshf3:       type 0,86
  900. keyshf4:       type 0,87
  901. keyshf5:       type 0,88
  902. keyshf6:       type 0,89
  903. keyshf7:       type 0,90
  904. keyshf8:       type 0,91
  905. keyshf9:       type 0,92
  906. keyshf10:      type 0,93
  907. keyctlf1:      type 0,94
  908. keyctlf2:      type 0,95
  909. keyctlf3:      type 0,96
  910. keyctlf4:      type 0,97
  911. keyctlf5:      type 0,98
  912. keyctlf6:      type 0,99
  913. keyctlf7:      type 0,100
  914. keyctlf8:      type 0,101
  915. keyctlf9:      type 0,102
  916. keyctlf10:     type 0,103
  917. return:        type enter
  918. ; The end
  919.